home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / QuitMiamiRT.lha / QuitMiamiRT.rexx < prev   
OS/2 REXX Batch file  |  1996-12-22  |  3KB  |  80 lines
  1. /*
  2.    QuitMiamiRT.rexx
  3.    $VER: QuitMiamiRT.rexx v1.0 (22.12.96) by Scott J. Konowal sjkonowa@freenet.columbus.oh.us
  4. */
  5.  
  6. /* QuitMiamiRT.rexx is FREEWARE. Use as you like.  */
  7. /* If you think this macro could be better, please */
  8. /* send me any changes you suggest, as I am just a */
  9. /* beginning ARexx programmer.                     */
  10.  
  11. /* This macro will check if Miami is running. If   */
  12. /* Miami is running, it will ask, via reqtools, if */
  13. /* you want to disconnect or quit Miami.           */
  14. /* Originally intended for ToolManager.            */
  15.  
  16. /* Requires ReqTools, RexxReqTools, Miami and of   */
  17. /* course ARexx.                                   */
  18.  
  19. /* Tested with A1200 GVP Series II Turbo + '03     */
  20. /* Running AmigaOS 3.x, Miami 1.1b & 1.8.1,        */
  21. /* RexxReqTools.library 37.95 and ReqTools.library */
  22. /* 38.1434                                         */
  23.  
  24. /* Thanks goes out to Holger Kruse for the         */
  25. /* excellent modem-based TCP, Miami.               */
  26.  
  27. OPTIONS RESULTS
  28.  
  29. /* Set the following for font preferences. Do NOT  */
  30. /* include the .font extension.                    */
  31.  
  32. FONTTYPE = Topaz
  33. FONTSIZE = 8
  34.  
  35. /* Do not edit below here unless you know what you */
  36. /* are doing. This is not commented since most of  */
  37. /* it pretty much straight-forward (and I am not   */
  38. /* very good at explaining myself.)                */
  39.  
  40. IF ~EXISTS("libs:rexxreqtools.library") THEN DO
  41.     SAY "You need RexxReqTools.library"
  42.     EXIT
  43. END
  44.  
  45. IF ~SHOW('libraries','rexxreqtools.library') THEN DO
  46.     CALL ADDLIB("rexxreqtools.library",0,-30)
  47. END
  48.  
  49. MIAMISTAT = Show('ports','MIAMI.1')
  50.  
  51. IF MIAMISTAT = 0 THEN DO
  52.     CALL rtezrequest('Miami'||'0A'x||'is not running.',,'QuitMiamiRT.','rtez_flags = ezreqf_centertext' 'rt_font = '||FONTTYPE||'.font/'||FONTSIZE)
  53.     EXIT
  54. END
  55.  
  56. IF MIAMISTAT = 1 THEN DO
  57.     ADDRESS 'MIAMI.1'
  58.     ISONLINE
  59.  
  60.     IF RC=0 THEN DO
  61.         CALL rtezrequest('Miami is not online.'||'0A'x||'Do you want to quit?','_Quit|_Cancel','QuitMiamiRT.','rtez_flags = ezreqf_centertext' 'rt_font = '||FONTTYPE||'.font/'||FONTSIZE 'rtez_defaultresponse = 0')
  62.         IF RESULT = 1 THEN DO
  63.             QUIT
  64.         END
  65.         ELSE EXIT
  66.     END
  67.  
  68.     IF RC=1 THEN DO
  69.         CALL rtezrequest('Miami is ONLINE!'||'0A'x||'Do you want to'||'0A'x||'disconnect or quit?','_Disconnect|_Quit|_Cancel','QuitMiamiRT.','rtez_flags = ezreqf_centertext' 'rt_font = '||FONTTYPE||'.font/'||FONTSIZE 'rtez_defaultresponse = 0')
  70.         IF RESULT = 1 THEN DO
  71.             OFFLINE
  72.         END
  73.         IF RESULT = 2 THEN DO
  74.             OFFLINE
  75.             QUIT
  76.         END
  77.         ELSE EXIT
  78.     END
  79. END 
  80.